home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 August / 64er_Magazin_90-08_1990_Markt__Technik_de_Side_A.d64 / leseroutine 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  35 lines
  1. 10 rem errorleseroutine fuer alle spuren
  2. 20 rem (c) 1986 by klaus raczek
  3. 30 :
  4. 40 dim r(22): rem feld fuer leseroutine
  5. 50 open1,8,15,"i":rem fehlerkanal oeffnen und initialisieren
  6. 60 fori=0to22
  7. 70 read r(i): rem maschinenprogramm in
  8. 80 next i: rem feld r() einlesen
  9. 90 print"[147]einlesen eines sektors"
  10. 100 input"welche spur (1-40)";sp:r(1)=sp
  11. 110 input"welcher sektor";se:r(5)=se
  12. 115 input"welche id (oder return)";id$
  13. 116 ifid$<>""thenprint#1,"m-w"chr$(18)chr$(0)chr$(2)id$
  14. 120 fori=0to22
  15. 130 print#1,"m-w"chr$(i)chr$(4)chr$(1)chr$(r(i)):rem programm in puffer schreibe
  16. 140 next i
  17. 145 print#1,"m-w"chr$(106)chr$(0)chr$(1)chr$(133): rem  bei error nicht klappern
  18. 150 print#1,"m-e"chr$(0)chr$(4):rem programm in puffer ausfuehren
  19. 160 input#1,a,b$,c,d:print:printa;b$;c;d:rem fehlerkanal lesen und zeigen
  20. 170 fori=1to3000:next
  21. 180 :
  22. 190 data 169,18,133,6,169,1,133,7,169,128
  23. 200 data 162,0,141,77,2,133,0,141,91,2,76,153,213
  24. 210 :
  25. 220 :
  26. 230 print"anzeigen des blockinhalts":fori=1to2000:next
  27. 240 rem 256 bytes
  28. 250 :
  29. 260 fori=0to255step16:print"[147]byte      byte      byte"
  30. 265 print"nummer    dezimal   ascii":forj=0to15
  31. 270 print#1,"m-r"chr$(i+j)chr$(3)
  32. 280 get#1,a$:a=asc(a$+chr$(0)):rem eine byte lesen
  33. 290 print""i+j,a,a$"":rem ausgeben: bytenummer, asc-wert, ascii-zeichen
  34. 300 next:print"taste":poke198,0:wait198,1:next
  35.